home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_d / isamexpt.zip / ISAM2DBF.DFM / ISAM2DBF.txt
Text File  |  1996-04-05  |  4KB  |  135 lines
  1. object TransferDlg: TTransferDlg
  2.   Left = 263
  3.   Top = 99
  4.   BorderStyle = bsDialog
  5.   Caption = 'ISAM-DBASE-TRANSFER'
  6.   ClientHeight = 236
  7.   ClientWidth = 317
  8.   Font.Color = clBlack
  9.   Font.Height = -11
  10.   Font.Name = 'Arial'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   Position = poScreenCenter
  14.   OnCreate = FormCreate
  15.   OnDestroy = FormDestroy
  16.   OnShow = FormShow
  17.   TextHeight = 14
  18.   object Bevel1: TBevel
  19.     Left = 8
  20.     Top = 8
  21.     Width = 300
  22.     Height = 185
  23.     Shape = bsFrame
  24.     IsControl = True
  25.   end
  26.   object Gauge1: TGauge
  27.     Left = 20
  28.     Top = 16
  29.     Width = 281
  30.     Height = 33
  31.     Font.Color = clBlack
  32.     Font.Height = -11
  33.     Font.Name = 'Arial'
  34.     Font.Style = []
  35.     ForeColor = clBlue
  36.     ParentFont = False
  37.     Progress = 0
  38.   end
  39.   object CancelBtn: TBitBtn
  40.     Left = 184
  41.     Top = 200
  42.     Width = 81
  43.     Height = 29
  44.     Cancel = True
  45.     Caption = 'Ende'
  46.     ModalResult = 2
  47.     TabOrder = 0
  48.     Glyph.Data = {
  49.       66010000424D6601000000000000760000002800000014000000140000000100
  50.       040000000000F000000000000000000000000000000000000000000000000000
  51.       8000008000000080800080000000800080008080000080808000C0C0C0000000
  52.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888888880088
  53.       8888888800008888888060888888888833318888880660888888888800008888
  54.       8066608888888888E9960000066660000000000000808888066660FFF0888888
  55.       00218888066660FFF088888817968888066660FFF088888888888888066060FF
  56.       F088808820568888066660FFF088008847048888066660FFF0800000689E8888
  57.       066660FFF088008847888888066660FFF0888088056A8888066660FFF0888888
  58.       21B18888066660FFF08888880000888806660FFFF0888888222288880660FFFF
  59.       F0888888AAAA8888060FFFFFF088888888888888000000000088888800008888
  60.       88888888888888880000}
  61.     Margin = 2
  62.     Spacing = -1
  63.     IsControl = True
  64.   end
  65.   object StartBttn: TBitBtn
  66.     Left = 48
  67.     Top = 200
  68.     Width = 93
  69.     Height = 29
  70.     Hint = 'Start Transfer'
  71.     Caption = 'Start'
  72.     TabOrder = 1
  73.     OnClick = StartBttnClick
  74.     Glyph.Data = {
  75.       76010000424D7601000000000000760000002800000020000000100000000100
  76.       04000000000000010000130B0000130B00000000000000000000000000000000
  77.       800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  78.       FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333303
  79.       333333333333337FF3333333333333903333333333333377FF33333333333399
  80.       03333FFFFFFFFF777FF3000000999999903377777777777777FF0FFFF0999999
  81.       99037F3337777777777F0FFFF099999999907F3FF777777777770F00F0999999
  82.       99037F773777777777730FFFF099999990337F3FF777777777330F00FFFFF099
  83.       03337F773333377773330FFFFFFFF09033337F3FF3FFF77733330F00F0000003
  84.       33337F773777777333330FFFF0FF033333337F3FF7F3733333330F08F0F03333
  85.       33337F7737F7333333330FFFF003333333337FFFF77333333333000000333333
  86.       3333777777333333333333333333333333333333333333333333}
  87.     NumGlyphs = 2
  88.   end
  89.   object DBGrid1: TDBGrid
  90.     Left = 20
  91.     Top = 56
  92.     Width = 277
  93.     Height = 129
  94.     DataSource = DataSource1
  95.     Options = [dgTitles, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
  96.     TabOrder = 2
  97.     TitleFont.Color = clBlack
  98.     TitleFont.Height = -11
  99.     TitleFont.Name = 'Arial'
  100.     TitleFont.Style = []
  101.   end
  102.   object Table1: TTable
  103.     Left = 264
  104.     Top = 200
  105.   end
  106.   object IsamTable1: TIsamTable
  107.     MyUnitName = 'E:\DELPHI\BIN\UNIT1.PAS'
  108.     IsamKeyProc.Strings = (
  109.       'Function KeyProc(Var Daten; KeyNr:Word): IsamKeyStr;'
  110.       'var s : String;'
  111.       'begin'
  112.       '  s:= '#39#39';'
  113.       '  with (Daten) do begin'
  114.       '    case KeyNr of'
  115.       '      1 : S:= '#39#39';'
  116.       '    End;'
  117.       '  end;'
  118.       '  KeyProc:= s;'
  119.       'end;'
  120.       '')
  121.     IsamRecord.Strings = (
  122.       'Type'
  123.       ' = Record'
  124.       '  Dummy : Longint;'
  125.       'end;')
  126.     Left = 12
  127.     Top = 200
  128.   end
  129.   object DataSource1: TDataSource
  130.     DataSet = Table1
  131.     Left = 288
  132.     Top = 200
  133.   end
  134. end
  135.